home *** CD-ROM | disk | FTP | other *** search
/ Crack It! / Crack It!.iso / CONTENT / JSTEST / JST300D.EXE / INTRORT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-09  |  845 b   |  54 lines
  1. {
  2.  ***
  3.  
  4.  INTRORT.PAS
  5.  
  6.  (C)Copyright Gerard Paul Java 1996
  7.  This unit contains the desktop drawing routine and a routine to display
  8.  the introductory box.
  9.  
  10.  ***
  11. }
  12.  
  13. unit IntroRt;
  14.  
  15. interface
  16.  
  17. type
  18.   FileNameType = string[8];
  19.   DescType = string[54];
  20.  
  21. procedure DrawDesktop;
  22. procedure DrawIntroBox;
  23.  
  24. implementation
  25. uses Crt,ScreenRt,SysRt,Instruc;
  26.  
  27. procedure DrawDesktop;
  28. var
  29.   DesktopString: Str80;
  30.   Postn: byte;
  31.  
  32. begin
  33.   TextAttr := TextNormAttr;
  34.   ClrEol;
  35.   GotoXY(1,25);ClrEol;
  36.  
  37.   TextAttr := $78;DesktopString := StringOf(#177,80);       { Desktop. }
  38.   for Postn := 2 to 24 do
  39.     begin
  40.       GotoXY(1,Postn);Write(DesktopString);
  41.     end; { for }
  42. end;
  43.  
  44. procedure DrawIntroBox;
  45. begin
  46.   JustSeeBox;
  47.  
  48.   TextAttr := BoxAttr;
  49.   DrawBox(13,9,68,15,DoubleLine);
  50.   Window(15,10,68,16);
  51. end;
  52.  
  53. end.
  54.